# Perl example - fruits4
# Polyglot Language Project
# http://groups.google.com/group/comp-lang-polyglot

# File: fruits4.pl
# Date: 9-Aug-2008

use English;

print "Perl Version: $PERL_VERSION\n";
print "OS: $OSNAME\n";
print "---------------------- \n";

@fruits = ();
$fruits[0] = "apple";
$fruits[1] = "orange";
$fruits[2] = "grape";

print "$fruits[2]\n";
